home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Prog / M / MacOberon.cpt / MacOberonToolBoxInterface.sit / MacWindows.Mod (.txt) < prev    next >
Encoding:
Oberon Text  |  1990-08-30  |  2.1 KB  |  45 lines  |  [.Ob./.Ob*]
  1. Syntax10.Scn.Fnt
  2. MODULE MacWindows;    (* Macintosh OS Interface Module    Michael Franz, 30.08.90    Incomplete Definition *)
  3. IMPORT
  4.     TY:= MacTypes, QD:= MacQuickDraw;
  5. CONST
  6.     (* Window Kind *)
  7.         dialogKind*= 2;    userKind*= 8;
  8.     (* FindWindow Result Codes *)
  9.         inDesk*= 0;    inMenuBar*= 1;    inSysWindow*= 2;    inContent*= 3;    inDrag*= 4;
  10.         inGrow*= 5;    inGoAway*= 6;    inZoomIn*= 7;    inZoomOut*= 8;
  11.     WindowPtr*= POINTER + TO WindowRecord;
  12.     WindowRecord*= RECORD +
  13.     (QD.GrafPort)
  14.         windowKind*: INTEGER;
  15.         visible*, hilited, goAwayFlag, spareFlag: BOOLEAN;
  16.         strucRgn, contRgn, updateRgn: QD.RgnHandle;
  17.         windowDefProc: TY.ProcHandle;
  18.         dataHandle: TY.Handle;
  19.         titleHandle: TY.StringHandle;
  20.         titleWidth: INTEGER;
  21.         controlList: TY.Handle;
  22.         nextWindow: WindowPtr;
  23.         windowPic: TY.Handle;    (* PicHandle *)
  24.         refCon*: LONGINT
  25.     END;
  26. PROCEDURE - NewWindow*(wStorage: TY.Ptr; boundsRect: TY.Rect; title: TY.Str255; visible: BOOLEAN; theProc: INTEGER;
  27.                                                 behind: WindowPtr; goAwayFlag: BOOLEAN; refCon: LONGINT): WindowPtr    0A9H, 013H;
  28. PROCEDURE - GetNewWindow*(windowID: INTEGER; wStorage: TY.Ptr; behind: WindowPtr): WindowPtr    0A9H, 0BDH;
  29. PROCEDURE - CloseWindow*(theWindow: WindowPtr)    0A9H, 02DH;
  30. PROCEDURE - DisposeWindow*(theWindow: WindowPtr)    0A9H, 014H;
  31. PROCEDURE - ShowWindow*(theWindow: WindowPtr)    0A9H, 015H;
  32. PROCEDURE - HideWindow*(theWindow: WindowPtr)    0A9H, 016H;
  33. PROCEDURE - FrontWindow*(): WindowPtr    0A9H, 024H;
  34. PROCEDURE - SelectWindow*(theWindow: WindowPtr)    0A9H, 01FH;
  35. PROCEDURE - BringToFront*(theWindow: WindowPtr)    0A9H, 020H;
  36. PROCEDURE - SendBehind*(theWindow, behindWindow: WindowPtr)    0A9H, 021H;
  37. PROCEDURE - MoveWindow*(theWindow: WindowPtr; hGlobal, vGlobal: INTEGER; front: BOOLEAN)    0A9H, 01BH;
  38. PROCEDURE - DragWindow*(theWindow: WindowPtr; startPt: TY.Point; boundsRect: TY.Rect)    0A9H, 025H;
  39. PROCEDURE - FindWindow*(thePoint: TY.Point; VAR theWindow: WindowPtr): INTEGER    0A9H, 02CH;
  40. PROCEDURE - BeginUpdate*(theWindow: WindowPtr)    0A9H, 022H;
  41. PROCEDURE - EndUpdate*(theWindow: WindowPtr)    0A9H, 023H;
  42. PROCEDURE - SetWRefCon*(theWindow: WindowPtr; data: LONGINT)    0A9H, 018H;
  43. PROCEDURE - GetWRefCon*(theWindow: WindowPtr): LONGINT    0A9H, 017H;
  44. END MacWindows.
  45.